home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR10 / SPX20.ZIP / SPX_INT.ZIP / SPX_CRD.INT < prev    next >
Text File  |  1993-09-15  |  1KB  |  52 lines

  1. Unit spx_crd;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 2.0  Copyright 1993 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. const
  9.  { card value type }
  10.   crd_jack    = 11;
  11.   crd_queen   = 12;
  12.   crd_king    = 13;
  13.   crd_ace     = 14;
  14.  { card suite type }
  15.   crd_diamond = 0;
  16.   crd_heart   = 1;
  17.   crd_spade   = 2;
  18.   crd_club    = 3;
  19.  { five card poker values }
  20.   crd_nothing    = 0;
  21.   crd_onepair    = 1;
  22.   crd_twopair    = 2;
  23.   crd_threekind  = 3;
  24.   crd_fourkind   = 4;
  25.   crd_fullhouse  = 5;
  26.   crd_straight   = 6;
  27.   crd_flush      = 7;
  28.   crd_straightf  = 8;
  29.   crd_rstraightf = 9;
  30.  
  31. type
  32.   BlackJackType = (BJnothing,BJhit,BJstay,BJsplit,BJdouble);
  33.   Tcard         = record
  34.                     card,suite : byte;
  35.                   end;
  36.   Tdeck         = array[0..51] of Tcard;
  37.  
  38. var
  39.   hicard : Tcard;
  40.  
  41. procedure SwapCard(var card1,card2:Tcard);
  42. procedure CreateDeck(var adeck);
  43. procedure ShuffleDeck(var adeck);
  44. procedure SortDeck(var adeck;Lo,Hi:integer);
  45. function PokerHand(var ahand):integer;
  46. function SuiteString(suite:byte):string;
  47. function PokerHandString(ehandvalue:integer):string;
  48. function BJ_Total(var ahand;cards:integer):integer;
  49. function BJ_Dealer(var ahand;cards:integer):BlackJackType;
  50.  
  51. Implementation
  52.